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-- Windowdefs.Mesa Edited by Sandman on March 28, 1978 5:47 PM 

DIRECTORY 
SegmentDefs: FROM "segmentdefs" , 
MenuDefs: FROM "menudefs", 
StreamDefs: FROM "streamdef s" , 
RectangleDefs: FROM "rectangledefs" ; 

WindowDefs: DEFINITIONS « 

BEGIN 

-- Included Types 

MenuHandle: TYPE ■ MenuDefs .MenuHandle; 
FileHandle: TYPE - SegmentDefs . FileHandle; 
DisplayHandle: TYPE « StreamDefs. DisplayMandle; 
StreamHandle: TYPE « StreamDefs. StreamHandle; 
DiskHandle: TYPE « StreamDefs .DiskHandle; 
Streamlndex: TYPE » StreamDefs .Streamlndex; 
BMHandle: TYPE » RectangleDefs .BMHandle; 
Rptr: TYPE = RectangleDefs. Rptr; 
xCoord: TYPE = RectangleDefs. xCoord; 
yCoord: TYPE = RectangleDefs .yCoord; 

-- Window Types 

WindowHandle: TYPE = POINTER TO DisplayWindow; 

DisplayWindow: TYPE = RECORD [ 
link: WindowHandle, 
type: WindowType, 
name: STRING, 
menu: MenuHandle, 

displayproc: PROCEDURE [WindowHandle], 
rectangle: Rptr, 
ds: Displ ayHandle. 
ks: StreamHandle, 
file: DiskHandle, 
fileindex: Streamlndex, 
tempindex: Streamlndex, 
eofindex: Streamlndex, 
selection: Selection]; 

Selection: TYPE » RECORD [ 
leftx, rightx: xCoord, 
leftline, rightline: CARDINAL, 
leftindex, rightindex: Streamlndex]; 

WindowType: TYPE = {clear, random, scratch, file, scriptfile}; 

Originlndex: Streamlndex = StreamIndex[0 , 0]; 
Nulllndex: Streamlndex - StreamIndex[0 , -1]; 

-- procedures implementing Windows 

CreateDisplayWindow: PROCEDURE [ 

WindowType, Rptr, DisplayHandle, StreamHandle, STRING] 

RETURNS [WindowHandle]; 
AlterWindowType: PROCEDURE [WindowHandle. WindowType, STRING]; 
DestroyDisplayWindow: PROCEDURE [WindowHandle]; 
UnlinkDisplayWindow: PROCEDURE [WindowHandle]; 
PaintDisplayWindow: PROCEDURE [WindowHandle]; 
DrawDi splay Window: PROCEDURE [WindowHandle]; 
FindDisplayWindow: PROCEDURE [x: xCoord. y: yCoord] 

RETURNS [WindowHandle, xCoord, yCoord]; 
SetCurrentDisplayWindow: PROCEDURE [WindowHandle]; 
SetFileforWindow: PROCEDURE [WindowHandle. STRING]; 

SetFi leHandleForWindow: PROCEDURE [WindowHandle. FileHandle, STRING]; 
SetlndexForWindow: PROCEDURE [WindowHandle, Streamlndex]; 
SetPositionforWindow: PROCEDURE [WindowHandle, CARDINAL]; 
GetCurrentDisplayWindow: PROCEDURE RETURNS [WindowHandle]; 
GetLineTable: PROCEDURE RETURNS [POINTER]; 
OpenDisplayWindows: PROCEDURE; 
CloseDisplayWindows: PROCEDURE; 
RepaintDisplayWindows: PROCEDURE [mapdata: BMHandle]; 
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BlinkCursor: PROCEDURE RETURNS [BOOLEAN]; 

-- Procedures Implementing Selections 

ResolveBugToPosition: PROCEDURE [w: W IndowHandle, x: xCoord, y: yCoord] 

RETURNS [line: CARDINAL, xpos: xCoord, width: CARDINAL, index: Streamlndex] ; 
MakeSelection: PROCEDURE [w: WindowHandle, sel : POINTER TO Selection]; 
MarkSelection: PROCEDURE [w: WindowHandle] ; 
GetSelection: PROCEDURE [w: WindowHandle] RETURNS [STRING]; 
UpdateSelection: PROCEDURE [w: WindowHandle]; 

WindowsB: PROGRAM [STRING]; 

END. of windowdefs 



